Monster Media 1994 #2/Monster Media No. 2 (Monster Media)(1994).ISO/finance/cs4_b.zip/BUDGET.STY

Text File | 1994-05-15 | 2KB | 94 lines

@IF @SA > {1} THEN
 @UE
@EI
@MA8 @MD00 @MC+ @MK1 @MS- @MU-
> @VS01 := "FIRST_TIME"
@IF @RD = "SCREEN" THEN
@MH2
> @VN82 := {0}
Categories                        Budgeted    Actual       Diff   % of Diff 
═══════════════════════════════   ════════  ════════  ═════════ ═══════════ 
@EL
> @VN82 := {1}
@PA ;
@EI

@LA12345
@IF {@VN82} = {1} THEN
> @VN81 := {5}  ; form feed counter
> @VN82 := {0}
@MI{@RI} @HC------ @MT+ @HN------------------------------------------------------------ @MT- 
@MI{@RI} @HA-----  @MT+ @HS------   through   @HE------                                 @MT- 
 
@MI{@RI} Categories                      Budgeted    Actual       Diff     % of Diff 
@MI{@RI} =============================== ========  ========  =========   =========== 
@EI
> @VN01 := {@VN01+@SH01}
> @VN02 := {@VN02+@SU01}
> @VN40 := {(@SU01-@SH01)*-1}
> @VS99 := "       0"
> @VN81 := {@VN81+1}  ; increase form feed counter
@IF {@SH00} > {0} THEN
> @VN90 := {1}                ; Check for any income category
@EI
@IF @RD = "SCREEN" THEN
@SN---------------------------     @SU01---   @SH01---    @MS+ @VN40---
@EL
 @IF @RC = "MAJOR" THEN
@MI{@RI} @SN---------------------------   @SU01---   @SH01---    @MS+ @VN40---   ;
 @EL
@MI{@RI} @SN---------------------------   @SU01---   @SH01---    @MS+ @VN40---   ;
 @EI
@EI

> @VS02 := "Up"
@IF {@SH01 + @SU01} = {0} THEN
> @VN40 := {0}
> @VS02 := "--"
@EL @IF {@SH01} = {@SU01} THEN
> @VN40 := {0}
> @VS02 := "--"
@EL @IF {@SH01} = {0} THEN
> @VN40 := {100}
> @VS02 := "--"
@EL @IF {@SU01} = {0} THEN
> @VN40 := {-100}
@EL
> @VN40 := {((@SU01-@SH01)/@SU01)*100}
@EI
@IF {@VN40} > {0} THEN
> @VN40 := {@VN40*-1}
> @VS02 := "Dn"
@EI
@MS- @VN40--- % @VS02 @A+1 
@IF {@SH00} < {0} THEN
 @IF @VS01 = "FIRST_TIME" THEN
> @VS01 := ""
@IF {@VN90} = {1} THEN
@IF @RD = "SCREEN" THEN
                                  ────────  ────────  ───────── ───────────
@EL
@MI{@RI}                                 --------  --------  ---------   -----------
@EI
> @VN81 := {@VN81+3}  ; adjust form feed counter
> @VN01 := {0}
> @VN02 := {0}
@EI
 @EI
@EI
@IF @RD  "SCREEN" THEN
@IF {@VN81} ≥ {@RF} THEN
@PB 
@UM"Ready to print next page."
> @VN82 := {1}
@EI
@EI
@EA
@IF @RD = "SCREEN" THEN
                                  ════════  ════════  ═════════ ═══════════
@EL
@MI{@RI}                                 ========  ========  =========   =========== 
@EI